cyber.net interactivo 3/inter@ivo 1996-04.iso/cybint3/bin/burmest.dxr/00034.ls

Text File | 1996-03-22 | 1.6 KB | 68 lines

on exitFrame
  global dir
  set hot to 0
  set check to 0
  set i to 11
  set mov to 0
  if the mouseCast = 102 then
    go("naveg")
  end if
  repeat while i < 14
    if rollOver(i) then
      set check to 1
      set hot to i
      exit repeat
    end if
    set i to i + 1
  end repeat
  if check = 1 then
    set copo to 2
    repeat while copo < 5
      set the visible of sprite copo to 0
      set copo to copo + 1
    end repeat
    if hot = 13 then
      set the visible of sprite 5 to 1
      set the visible of sprite 6 to 1
    else
      set the visible of sprite 6 to 0
    end if
  end if
  if check = 0 then
    if the visible of sprite 6 = 1 then
      set the visible of sprite 6 to 0
    end if
    if the visible of sprite 5 = 1 then
      set the visible of sprite 5 to 0
    else
      set the visible of sprite 5 to 1
    end if
    if the visible of sprite 3 = 1 then
      set the visible of sprite 3 to 0
      set the visible of sprite 2 to 1
      set dir to 1
    else
      if (the visible of sprite 2 = 1) and (mov = 0) then
        set the visible of sprite 2 to 0
        if dir = -1 then
          set the visible of sprite 3 to 1
        end if
      else
        if (the visible of sprite 4 = 1) and (mov = 0) then
          set the visible of sprite 4 to 0
          set dir to -1
        else
          if dir = 1 then
            set the visible of sprite 4 to 1
          end if
          if dir = -1 then
            set the visible of sprite 2 to 1
          end if
        end if
      end if
    end if
  end if
  updateStage()
  go(the frame)
end